home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / INT16.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  154 b   |  11 lines
  1. $include "regnames.inc"
  2. do
  3.  reg %ax,0
  4.  call interrupt &H16
  5.  ah = int(reg(%ax)/256)
  6.  al = int(reg(%ax) mod 256)
  7.  ?al,ah
  8. loop until (al=13)
  9. end
  10.  
  11.